home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 202
/
202.d81
/
b.toolbox 117
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
99 lines
5 poke56,32:clr
10 dv=peek(186):ifdv<8thendv=8
20 sys57812"toolbox117 c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
30 poke53280,0:poke53281,0:mt=49152:box=mt+3:frame=mt+54:center=mt+18:at=mt+15
31 blode=mt+51:shade=mt+42:menu=mt:cswap=mt+36:clswap=mt+39:dir=mt+45
35 print"[147]":syscenter,12,"[212]oolbox 117!"
40 forj=1to3:fori=0to9
50 ifi<9thensysframe,3+i,36-i,3+i,21-i,11
60 sysframe,0+i,39-i,0+i,24-i,15
70 sysframe,1+i,38-i,1+i,23-i,12
80 sysframe,2+i,37-i,2+i,22-i,11
90 next:next
100 sysbox,10,29,10,14,160,3
110 print"[159]";:syscenter,12,"[204][207][193][196]ing doc file...
120 [158]blode,"bits text",dv,8192
130 [151][194](175)[172]256[170][194](174),0:[143]place zero at end of text file
140 [158]box,10,29,10,14,255,14:[129]i[178]1[164]100:[130]
150 [158]box,10,29,10,14,255,6:[129]i[178]1[164]100:[130]
160 [158]box,10,29,10,14,32,6
161 [158]box,00,39,00,24,255,12:[129]i[178]1[164]100:[130]
162 [158]box,00,39,00,24,255,11:[129]i[178]1[164]100:[130]:[153]"load"
170 [129]i[178]0[164]39[169]2
190 [158]box,0[170]i,0[170]i,0,24,95,1
200 [139]i[179]25[167][158]box,0,39,0[170]i,0[170]i,105,12
220 [130]
230 [158]shade,9,37,5,17:[158]frame,10,38,4,16,7:[158]box,11,37,5,15,160,3
240 [158]shade,1,36,19,23:[158]frame,2,37,20,22,13:[158]box,3,36,21,21,160,3
250 [153]"open";:[158]center,21,"len(NULL)(NULL)(NULL)/(NULL)eturn to select (NULL) to (NULL)uit"
260 [158]center,1,"syswait(NULL)(NULL)(NULL)peek(NULL)(NULL)117"
270 [131]"(NULL)ead (NULL)oolbox 117 str$ocs (1)"
275 [131]"(NULL)ee peekoxes (2)"
276 [131]"(NULL)ee ascrames (3)"
280 [131]"(NULL)ee (NULL)hade (4)"
281 [131]"(NULL)ee lenharacter (NULL)wap (5)"
282 [131]"(NULL)ee lenolor (NULL)wap (6)"
283 [131]"(NULL)ry ascile peekrowser (7)"
284 [131]"(NULL)uit (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) ((NULL))"
285 [131]"(NULL)uit (NULL)o peekatn(NULL)right$len (peek)"
290 [153]"open";:[129]i[178]1[164]9:[135]a$:[158]at,12,5[170]i,a$:[130]:[158]mt[170]6,208
300 [158]mt[170]9,208:[158]menu,6,11,36,9,3,7,"1234567qb(NULL)peek"
310 [145]f%[141]400,500,600,700,800,900,1000,60000,50000,50000
320 [151]198,0:[137]300
400 [141]5000:[158]mt[170]30,8192,3,7,"atnll atnbout (NULL)(NULL)(NULL)(NULL)peek(NULL)(NULL) 117":[142]
500 [141]5000
505 [158]center,24,"(NULL)(NULL)atnlenval to continue
510 x1=rnd(0)*39+1:dx=39-x1:x2=x1+rnd(0)*dx
520 y1=rnd(0)*23+1:dy=23-y1:y2=y1+rnd(0)*dy
530 sysbox,x1,x2,y1,y2,160,rnd(0)*15+1:ifpeek(197)<>64thenpoke198,0:return
580 goto510
600 gosub5000
610 fori=0to13:sysframe,0+i,3+i,0+i,3+i,7:next
620 fori=0to13:sysframe,36-i,39-i,0+i,3+i,7:next
630 syscenter,23,"[208][210][197][211][211] [193][206][217] [203][197][217]..."
640 sysframe,0,39,0,24,rnd(0)*15+1:ifpeek(197)=64then640
650 return
700 syscswap,95,95,14:syscswap,105,105,3:sysmt+6,240
710 d=int(rnd(0)*4+1)
720 ifd=1thenifx<28thenx=x+1
730 ifd=2thenifxthenx=x-1
740 ifd=3thenify<13theny=y+1
750 ifd=4thenifytheny=y-1
770 sysmt+9,240:sysframe,x,x+9,y,y+9,13:sysshade,x+1,x+8,y+1,y+8
780 ifpeek(197)<>64thenreturn
790 fori=1to80:next:goto710
800 fori=1to30:syscswap,105,105,1:syscswap,105,105,15:syscswap,105,105,12
801 syscswap,105,105,11:syscswap,105,105,12:syscswap,105,105,15:next
810 syscswap,32,160,4:fori=1to500:next
815 fori=1to255:syscs,i,32,0:next
820 return
900 fori=1to30:sysclswap,7,0:syscl,0,7:next:
910 fori=1to25:syscl,7,13:syscl,13,5:syscl,5,7:next
920 fori=1to5:sysclswap,3,0:forj=1to400:next:syscl,0,3:forj=1to400:next:next
930 return
1000 sysshade,1,29,8,16:sysframe,2,30,7,15,1:sysbox,3,29,8,14,160,5
1010 print"";:sysat,4,9,"[210]ead ([196])iskovery"
1020 sysat,4,10,"[210]ead ([211])oapbox"
1030 sysat,4,11,"[210]ead ([194])asics
1040 [158]at,4,12,"(NULL)ead peek(y)tes
1050 sysat,4,13,"[205]ain ([205])enu
1060 [158]mt,9,3,29,5,5,7,"dsbymstr$(NULL)peek(NULL)(NULL)q"
1070 [145]f%[137]1071,1072,1073,1074,1075,1071,1072,1073,1074,1075,1075
1071 a$[178]"t.diskovery 117":b$[178]"str$ right$close(NULL)close(NULL)close(NULL)close(NULL)closeval (NULL) (NULL)":[137]1080
1072 a$[178]"t.soapbox 117":b$[178]"mid$closevalcloseasccloseascclose' (NULL) (NULL)close(NULL)closeatnclose(NULL)closepeekclose(NULL) (NULL)":[137]1080
1073 a$[178]"t.tom dooley":b$[178]"(NULL)closeright$close(NULL)close(NULL) (NULL) valclose (NULL)close(NULL) (NULL) right$ len":[137]1080
1074 a$[178]"t.partitions":b$[178]"atnll atnbout (NULL)artitions":[137]1080
1075 [142]
1080 [160]2:[160]15:[159]15,dv,15:[159]2,dv,2,a$:[132]15,i:[160]2:[160]15
1081 [139]i[167][142]
1082 [158]mt[170]27,a$,dv,32768,3,7,b$:[142]
5000 [158]box,0,39,0,24,255,1:[158]box,0,39,0,24,255,15:[158]box,0,39,0,24,255,12
5010 [158]box,0,39,0,24,255,11:[158]box,0,39,0,24,255,0:[153]"load":[142]
50000 [128]
60000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]60020
60010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]60030
60020 [130]:[153]"load":[151]186,8:[128]
60030 q$[178][199](34):[151]646,[194](53281):[153]"load"
60040 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
60050 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]